home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 1, No. 06 (1982-02)(Softdisk)(Side B).zip / Softdisk Magazette Volume 1, No. 06 (1982-02)(Softdisk)(Side B).do / DEFENDER.bas < prev    next >
BASIC Source File  |  1996-12-24  |  10KB  |  159 lines
  1. 1  REM    "  <CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M>               DEFENDER 2<CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M>               MOBAS INC.<CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M>"
  2. 2  REM   "<CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M>"      
  3. 3  REM    "<CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M>NICK GOLDWATER,JOHN FRANCO,NAT CRUTCHER,JASON GREENE,GARY BOCHORST,TRACE MAYER<CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M>1454 CHEROKEE RD.                LOUISVILLE, KY.                         40204<CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M>"      
  4. 5  ROT= 0: SCALE= 1: GOSUB 32010
  5. 10  TEXT : HOME : POKE 232,8: POKE 233,82: POKE 232,8: POKE 233,82
  6. 20  PRINT "<CTRL-D>BLOADA1"
  7. 30  HGR : HCOLOR= 5
  8. 40  DRAW 4 AT 70,90: DRAW 5 AT 90,90: DRAW 6 AT 110,90: DRAW 5 AT 130,90: DRAW 14 AT 150,90: DRAW 4 AT 170,90: DRAW 5 AT 190,90: DRAW 18 AT 210,90
  9. 50  PRINT "<CTRL-D>BLOADN++L"
  10. 60  DRAW 2 AT 228,93: HCOLOR= 3: DRAW 23 AT 103,130: DRAW 25 AT 109,130: DRAW 12 AT 115,130: DRAW 11 AT 121,130: DRAW 29 AT 127,130: DRAW 19 AT 140,130: DRAW 24 AT 145,130: DRAW 13 AT 151,130: HPLOT 153,136
  11. 62  DRAW 1 AT 200,140: DRAW 9 AT 205,140: DRAW 8 AT 211,140: DRAW 2 AT 217,140: FOR Q8 = 1 TO 1000: NEXT : FOR Q9 = 1 TO 78: LET LINE = LINE +2: HPLOT 1,LINE TO 279,LINE: NEXT 
  12. 70  HCOLOR= 3: HPLOT 279,156 TO 279,1: HPLOT 279,1 TO 1,1: HPLOT 1,1 TO 1,156: FOR E1 = 1 TO 1000: NEXT : TEXT 
  13. 80  FOR Q5 = 1 TO 26: PRINT "                                       ": NEXT : VTAB (1): FOR W = 9 TO 0  STEP  -1: VTAB (12): HTAB (19): PRINT W: FOR W1 = 1 TO 300: NEXT : NEXT W: VTAB (12): HTAB (16): PRINT "LAUNCHING!": FOR W2 = 1 TO 500: NEXT W2
  14. 90  TEXT : HOME : SCALE= 1
  15. 100  HGR : PRINT "<CTRL-D>BLOADD"
  16. 110  HCOLOR= 1: HPLOT 0,0: CALL 62454
  17. 120  HGR 
  18. 130  HOME 
  19. 140  HCOLOR= 1: HPLOT 0,159 TO 279,159
  20. 150  DIM A(20): DIM B(20)
  21. 159  LET R1 = R1 +1: IF R1 >3  THEN 5000
  22. 160  FOR T = 1 TO 5
  23. 170  HCOLOR= 1: HPLOT 0,159 TO 279,159
  24. 180  LET A(T) =  INT(279 * RND(1)) +1
  25. 190  LET B(T) =  INT(158 * RND(1)) +1
  26. 200  HPLOT A(T),B(T)
  27. 210  NEXT 
  28. 220  LET X = 80
  29. 230  LET Y = 1
  30. 240  HCOLOR= 3: DRAW Y AT 138,X
  31. 245 P = X
  32. 250  IF  PEEK( -16384) <128  THEN O =  PEEK( -16384): POKE  -16368,0
  33. 260  HCOLOR= 0: FOR T = 1 TO 5: HPLOT A(T),B(T): NEXT 
  34. 270  HCOLOR= 3
  35. 280  FOR T = 1 TO 5: IF Y = 1  THEN  LET A(T) = A(T) +20
  36. 290  IF Y = 2  THEN  LET A(T) = A(T) -20
  37. 300  IF A(T) >250  THEN  LET A(T) = 21
  38. 310  IF A(T) <20  THEN  LET A(T) = 250
  39. 320  HPLOT A(T),B(T)
  40. 330  NEXT 
  41. 340  GOTO 620
  42. 350  IF O = 90  THEN 410
  43. 360  IF O = 65  THEN 430
  44. 370  IF O = 8  THEN 450
  45. 380  IF O = 21  THEN 460
  46. 390  IF O = 32  THEN 470
  47. 395  IF O = 81  THEN 569
  48. 400  POKE  -16368,0: GOTO 240
  49. 410  HCOLOR= 0: DRAW Y AT 138,X: LET X = X +7: IF X >150  THEN X = 150
  50. 420  HCOLOR= 3: DRAW Y AT 138,X: POKE  -16368,0: GOTO 240
  51. 430  HCOLOR= 0: DRAW Y AT 138,X: LET X = X -7: IF X <10  THEN X = 10
  52. 440  HCOLOR= 3: DRAW Y AT 138,X: POKE  -16368,0: GOTO 240
  53. 450  HCOLOR= 0: DRAW Y AT 138,X: LET Y = 1: HCOLOR= 3: POKE  -16368,0: GOTO 240
  54. 460  HCOLOR= 0: DRAW Y AT 138,X: LET Y = 2: HCOLOR= 3: POKE  -16368,0: GOTO 240
  55. 470  HCOLOR= 3: IF Y = 1  THEN 490
  56. 480  HPLOT 146,X TO 279,X: HCOLOR= 0: HPLOT 146,X TO 279,X: POKE  -16368,0: HCOLOR= 3: GOSUB 1090: GOTO 510
  57. 490  HPLOT 130,X TO 0,X: HCOLOR= 0: HPLOT 130,X TO 0,X: POKE  -16368,0: HCOLOR= 3
  58. 500  GOSUB 1090
  59. 510  IF Y = 1  AND C <138  THEN 580
  60. 520  POKE  -16368,0
  61. 530  IF Y = 2  AND C >138  THEN 550
  62. 540  GOTO 240
  63. 550  LET J = X +4: LET K = X -4: IF D <J  AND D >K  THEN 570
  64. 560  GOTO 240
  65. 569  POKE  -16368,0: POKE  -16368,0: LET G = 10: LET M2 = M2 +1: IF M2 >4  THEN 250
  66. 570  HCOLOR= 0: LET G = 0: DRAW S AT C,D: POKE  -16368,0
  67. 575  HOME : VTAB (24): IF S = 4  THEN  LET Z1 = Z1 +10
  68. 576  IF S = 5  THEN Z1 = Z1 +100
  69. 577  IF S = 6  THEN Z1 = Z1 +50
  70. 578  PRINT "SCORE= ";Z1: GOTO 240
  71. 580  LET J = X +4
  72. 590  LET K = X -4
  73. 600  IF D <J  AND D >K  THEN 570
  74. 610  GOTO 240
  75. 620  POKE  -16368,0: IF G = 10  THEN 650
  76. 630  LET C =  INT(279 * RND(1)) +1: LET D =  INT(140 * RND(1)) +10
  77. 640  LET S =  INT(3 * RND(1)) +4: LET G = 10: LET F =  INT(7 * RND(1)) +1: IF F = 0  THEN F = 1
  78. 650  HCOLOR= 0: DRAW S AT C,D
  79. 660  LET F =  INT(7 * RND(1)) +1: IF F = 0  THEN F = 1
  80. 670  IF F = 4  THEN F = 5
  81. 680  IF Y = 1  THEN 780
  82. 690  IF C >138  THEN 710
  83. 700  LET C = C -4: GOTO 720
  84. 710  LET C = C -10
  85. 720  HCOLOR= F
  86. 730  IF C <10  THEN C = 270
  87. 740  DRAW S AT C,D: IF C <144  AND C >132  THEN 1110
  88. 750  IF S = 5  THEN 870
  89. 760  IF S = 6  THEN 930
  90. 770  GOTO 350
  91. 780  IF C <138  THEN 800
  92. 790  LET C = C +4: GOTO 810
  93. 800  LET C = C +10: GOTO 810
  94. 810  HCOLOR= F
  95. 820  IF C >270  THEN C = 10
  96. 830  DRAW S AT C,D: IF C <144  AND C >132  THEN 1110
  97. 840  IF S = 6  THEN 930
  98. 850  IF S = 5  THEN 870
  99. 860  GOTO 350
  100. 870  HCOLOR= 0: DRAW S AT C,D: IF C <138  THEN  LET C = C +5
  101. 880  IF C >138  THEN  LET C = C -5
  102. 890  IF D <X  THEN  LET D = D +5
  103. 900  IF D >X  THEN  LET D = D -5
  104. 910  HCOLOR= F: DRAW S AT C,D: IF C <144  AND C >132  THEN 1110
  105. 920  GOTO 350
  106. 930  HCOLOR= 3: LET R =  INT(159 * RND(1)) +1: HPLOT C,D TO 138,R: HCOLOR= 0: HPLOT C,D TO 138,R
  107. 940  IF R <X +5  AND R >X -5  THEN 960
  108. 950  GOTO 350
  109. 960  LET G = 0: GOTO 1000
  110. 970  FOR T = 1 TO 5: HPLOT A(T),B(T)
  111. 980  GOTO 350
  112. 990  GOTO 160
  113. 1000  FOR B = 1 TO 10: LET A =  INT(7 * RND(1)) +1: LET A1 =  INT(25 * RND(1)) +130: LET A2 =  INT(12 * RND(1)) +X -5: HCOLOR= A
  114. 1010  LET A3 =  INT(25 * RND(1)) +130: LET A4 =  INT(12 * RND(1)) +X -5
  115. 1020  HPLOT A1,A2 TO A3,A4: HPLOT A1,A2 TO 125,X +5: HPLOT A1,A2 TO 125,X +5: HPLOT A3,A4 TO 125,X +5: HPLOT A3,A4 TO 125,X +5: NEXT 
  116. 1030  GOSUB 1100
  117. 1040  FOR Q9 = 1 TO 10: SCALE= Q9: HCOLOR= 5: DRAW 9 AT 138,P: FOR Q8 = 1 TO 3: NEXT Q8: NEXT Q9
  118. 1041  SCALE= 1
  119. 1060  HGR 
  120. 1070  LET G = 0
  121. 1075  LET M2 = 0
  122. 1080  GOTO 159
  123. 1090  POKE 1,5: POKE 2,1: POKE 889,228: CALL 867: POKE 889,229: CALL 865: POKE 889,123: POKE 1,15: FOR L = 1 TO 1: POKE 2,L: POKE 2,1: CALL 865: RETURN 
  124. 1100  POKE 1,5: POKE 2,2: POKE 889,128: CALL 865: POKE 889,129: CALL 865: POKE 889,130: POKE 1,55: FOR L = 1 TO 14: POKE 2,L: CALL 865: NEXT : POKE 2,55: CALL 865: RETURN 
  125. 1110  IF D <X +6  AND D >X -6  THEN 1130
  126. 1120  GOTO 350
  127. 1130  GOTO 1000
  128. 5000  TEXT : HOME : PRINT "          YOUR SCORE WAS ";Z1: VTAB (4): PRINT "          ANOTHER GAME (Y/N)"
  129. 5010  GET Q$
  130. 5020  IF Q$ = "Y"  THEN 5050
  131. 5030  IF Q$ = "N"  THEN  NEW 
  132. 5040  GOTO 5000
  133. 5050  LET R1 = 0: LET Z1 = 0: GOTO 1060
  134. 32000  REM "<CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M> SOUND GENERATOR BY TOM CLEAVER<CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M> UNIVERSITY OF LOUISVILLE<CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M><CTRL-M>"
  135. 32010  POKE 816,166: POKE 817,1: POKE 818,32: POKE 819,142: POKE 820,3
  136. 32020  POKE 821,138: POKE 822,208: POKE 823,250: POKE 824,96
  137. 32030  POKE 825,216: POKE 826,165: POKE 827,3: POKE 828,133: POKE 829,0: POKE 830,56
  138. 32040  POKE 831,229: POKE 832,4: POKE 833,144: POKE 834,14: POKE 835,105: POKE 836,0
  139. 32050  POKE 837,133: POKE 838,5: POKE 839,32: POKE 840,48: POKE 841,3: POKE 842,198
  140. 32060  POKE 843,0: POKE 844,198: POKE 845,5: POKE 846,208: POKE 847,247: POKE 848,96
  141. 32070  POKE 849,73: POKE 850,255: POKE 851,105: POKE 852,2: POKE 853,133: POKE 854,5
  142. 32080  POKE 855,32: POKE 856,48: POKE 857,3: POKE 858,230: POKE 859,0: POKE 860,198
  143. 32090  POKE 861,5: POKE 862,208: POKE 863,247: POKE 864,96
  144. 32100  POKE 865,166: POKE 866,1: POKE 867,169: POKE 868,224: POKE 869,141: POKE 870,119
  145. 32110  POKE 871,3: POKE 872,169: POKE 873,0: POKE 874,141: POKE 875,118: POKE 876,3
  146. 32120  POKE 877,238: POKE 878,118: POKE 879,3: POKE 880,208: POKE 881,3: POKE 882,238
  147. 32130  POKE 883,119: POKE 884,3: POKE 885,173: POKE 886,10: POKE 887,224: POKE 888,76
  148. 32140  POKE 889,130: POKE 890,3: POKE 891,74: POKE 892,74: POKE 893,74: POKE 894,74
  149. 32150  POKE 895,74: POKE 896,74: POKE 897,74: POKE 898,24: POKE 899,105: POKE 900,1
  150. 32160  POKE 901,133: POKE 902,0: POKE 903,32: POKE 904,142: POKE 905,3: POKE 906,138
  151. 32170  POKE 907,208: POKE 908,224: POKE 909,96
  152. 32180  POKE 910,141: POKE 911,48: POKE 912,192: POKE 913,165: POKE 914,2: POKE 915,133
  153. 32190  POKE 916,7: POKE 917,164: POKE 918,0: POKE 919,136: POKE 920,208: POKE 921,253
  154. 32200  POKE 922,141: POKE 923,48: POKE 924,192: POKE 925,164: POKE 926,0: POKE 927,136
  155. 32210  POKE 928,208: POKE 929,253: POKE 930,24: POKE 931,165: POKE 932,0: POKE 933,240
  156. 32220  POKE 934,6: POKE 935,101: POKE 936,6: POKE 937,133: POKE 938,6: POKE 939,144
  157. 32230  POKE 940,4: POKE 941,138: POKE 942,240: POKE 943,1: POKE 944,202: POKE 945,198
  158. 32240  POKE 946,7: POKE 947,208: POKE 948,232: POKE 949,96
  159. 32250  RETURN